home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / amigae.jan.archive / 000089_crash!uniwa.uwa…!multi!robbage_Mon, 31 Jan 94 00:59:26 PST.msg < prev    next >
Text File  |  1994-02-17  |  22KB  |  705 lines
  1. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  2.       id <1p15@bkhouse.cts.com>; Mon, 31 Jan 94 00:59:26 PST
  3. Received: from uniwa.uwa.edu.au by crash.cts.com with smtp
  4.     (Smail3.1.28.1 #18) id m0pQA7v-0000voC; Fri, 28 Jan 94 23:29 PST
  5. Received: from localhost (uucp@localhost) by uniwa.uwa.edu.au (8.6.4/8.6.4) id PAA19547 for bkhouse.cts.com!AmigaE; Sat, 29 Jan 1994 15:29:53 +0800
  6. Received: by multi.multiline.com.au (Smail3.1.28.1 #6)
  7.     id m0pQ8cJ-000C0bC; Sat, 29 Jan 94 13:53 WST
  8. Message-Id: <m0pQ8cJ-000C0bC@multi.multiline.com.au>
  9. Date: Sat, 29 Jan 1994 13:53:11 +0800 (WST)
  10. In-Reply-To: <9401271323.AA02257@plucky.safb.af.mil> from "Barry D Wills" at Jan 27, 94 07:23:27 am
  11. X-Mailer: ELM [version 2.4 PL21]
  12. MIME-Version: 1.0
  13. Content-Type: text/plain; charset=US-ASCII
  14. Content-Transfer-Encoding: 7bit
  15. Content-Length: 1096
  16. From: robbage@multi.multiline.com.au (Rob Nottage)
  17. To: AmigaE@bkhouse.cts.com
  18. Subject: Re: More GUI problems
  19.  
  20. > ~8> >         Gt_SetGadgetAttrsA(clicked,win,NIL,[GTLV_LABELS,$FFFFFFFF])
  21. > ~8> 
  22. > ~8> What about '-1' instead of $FFFFFFFF  ?  :-)
  23. > 
  24. > Heh.  The AutoDocs say "use ~0".  How's that for a language-
  25. > dependent doc?
  26.  
  27. I guess Not(0) would suffice then!  :-)  Should work actually.
  28. Even ALL should work??
  29.  
  30. > ~8> > I guess LISTVIEW's aren't my thing ... :)
  31. > ~8> 
  32. > ~8> I hate them too. We're stuck with them  :-)
  33. > 
  34. > Once you get by the skimpy instructions, listviews are
  35. > awesomely simple.  Don't give up.  If you're still having
  36. > trouble by Friday, mail me privately and I'll post an
  37. > example this weekend.
  38.  
  39. I'm not having any hassles with them myself. I just hate working with them
  40. :-)    I just wrote a short tute for working with listviews for the
  41. Amiga-E echo in AmigaNet.  I find it hard to tell what I know in a
  42. understandable way too  :-)
  43.  
  44.  
  45. -- 
  46.    ___________________________________
  47.   /                                   \
  48.   |  robbage@multi.multiline.com.au   |
  49.   |  Rob Nottage 3:690/662.0@FidoNet  |
  50.   |             41:616/662.0@AmigaNet |
  51.   \___________________________________/
  52. From crash!mpoli.fi!ilkka.anttonen Mon, 31 Jan 94 01:04:01 PST
  53. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  54.       id <1p6s@bkhouse.cts.com>; Mon, 31 Jan 94 01:04:01 PST
  55. Received: from eunet.fi by crash.cts.com with smtp
  56.     (Smail3.1.28.1 #18) id m0pQUON-0000CJC; Sat, 29 Jan 94 21:08 PST
  57. Received: from mpoli.fi by eunet.fi with UUCP id AA15467
  58.   (5.65c+l/IDA-1.4.4 for AMIGAE@BKHOUSE.CTS.COM); Sun, 30 Jan 1994 07:08:08 +0200
  59. Received: by mpoli (PCB-UUCP 1.1f)
  60.     id FAB2F1; Sun, 30 Jan 94 02:40:26 +0200
  61. Message-Id: <f7.35579.47.0CFAB2F1@mpoli.fi>
  62. Date: Sat, 29 Jan 94 00:54:00 +0200
  63. Organization: Metropoli, Finland
  64. From: ilkka.anttonen@mpoli.fi (Ilkka Anttonen)
  65. To: AMIGAE@BKHOUSE.CTS.COM
  66. Subject: Re: EFormat
  67.  
  68. Am>  Well, that is a bit weird. I've looked at the program, and it is
  69. Am> fine, as far as I can see. The only thing I can see that might be even
  70.  
  71. It is absolutely fine, it has never gurued on me and I'm running an
  72. obsolete KS1.2 with a ZKicked 2.04 on top of it. Works absolutely fine,
  73. nice work..
  74.  
  75. Am> >AddTools
  76. Am> >DropBox
  77. Am> >Exchange
  78. Am> >MagicMenu
  79. Am> >RexxMast
  80. Am> >RTPatch
  81. Am> >Storage
  82. Am> >Yak
  83.  
  84. [These are the commodities the original guru'er has running..]
  85. MagicMenu is NOT the cause of the guru. I have it running all the time and
  86. so far it hasn't done anything illegal. I've never heard about AddTools,
  87. DropBox or Storage, though, so I can't say anything about those.
  88.  
  89. Am> and is running Magic WB. 2. Try it from a bare cli. If it still does it,
  90. Am> without any of those programs, (Magic menus comes immediately to mind as
  91.  
  92. I would suggest the user to try to set a stack size a bit larger. Mine is
  93. 12000 bytes and it's sufficient for everything (excluding Frontier..;)
  94. If that doesn't help, then there are some higher forces working on the
  95. poor chap's computer and I'd advice him to make a quick browse through
  96. the yellow pages on the letter E (as in exorcist..) ;)
  97. --
  98.     ************************************************************
  99.     ** Ilkka Anttonen: Ilkka.Anttonen@mpoli.fi (Yep, Finland) **
  100.     ** Gordian Maxim: If a string has one end, it has another **
  101.     ************************************************************
  102.  
  103.  * Q-Blue 1.0 [NR] *
  104. From crash!uniwa.uwa.edu.au!multi!robbage Mon, 31 Jan 94 01:04:45 PST
  105. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  106.       id <1p7l@bkhouse.cts.com>; Mon, 31 Jan 94 01:04:45 PST
  107. Received: from uniwa.uwa.edu.au by crash.cts.com with smtp
  108.     (Smail3.1.28.1 #18) id m0pQXYg-00001NC; Sun, 30 Jan 94 00:31 PST
  109. Received: from localhost (uucp@localhost) by uniwa.uwa.edu.au (8.6.4/8.6.4) id QAA27122 for bkhouse.cts.com!AmigaE; Sun, 30 Jan 1994 16:31:01 +0800
  110. Received: by multi.multiline.com.au (Smail3.1.28.1 #6)
  111.     id m0pQVeA-0003N1C; Sun, 30 Jan 94 14:28 WST
  112. Message-Id: <m0pQVeA-0003N1C@multi.multiline.com.au>
  113. Date: Sun, 30 Jan 1994 14:28:38 +0800 (WST)
  114. X-Mailer: ELM [version 2.4 PL21]
  115. MIME-Version: 1.0
  116. Content-Type: text/plain; charset=US-ASCII
  117. Content-Transfer-Encoding: 7bit
  118. Content-Length: 1190
  119. From: robbage@multi.multiline.com.au (Rob Nottage)
  120. To: AmigaE@bkhouse.cts.com
  121. Subject: crashing from workbench
  122.  
  123. I have a program I've been playing with for some time and always from the
  124. shell.  Today I decided to make an icon for it and see how it went.
  125. It didn't  :-(   Alert 80000004
  126. After spending some time debugging, I found that it crashes upon actually
  127. loading it??  I have...
  128.  
  129. PROC main()
  130.   DEF <some variables>
  131.   WriteF('You made it this far\n')
  132. ..........
  133. other code
  134. ..........
  135.  
  136. According to the reference doc, Amiga E will open a console window for us
  137. if we use WriteF() when the program is run from workbench.
  138. Previous programs have proven this true. This program, however, causes
  139. an Alert even before the window is opened!?!?!
  140. All I've done before that line is DEFined some variables.
  141. The program does what I expect it to do, when run from CLI.
  142. I don't think it has anythng to do with whether there is an Output
  143. available for WriteF() because I can replace that line with:
  144.  
  145. DisplayBeep(NIL)
  146.  
  147. and it crashes before that even!
  148.  
  149. Any suggestions??
  150.  
  151.  
  152. -- 
  153.    ___________________________________
  154.   /                                   \
  155.   |  robbage@multi.multiline.com.au   |
  156.   |  Rob Nottage 3:690/662.0@FidoNet  |
  157.   |             41:616/662.0@AmigaNet |
  158.   \___________________________________/
  159. From crash!dtek.chalmers.se!d2hacker Mon, 31 Jan 94 01:05:05 PST
  160. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  161.       id <1p82@bkhouse.cts.com>; Mon, 31 Jan 94 01:05:05 PST
  162. Received: from hacket.dtek.chalmers.se by crash.cts.com with smtp
  163.     (Smail3.1.28.1 #18) id m0pQaUf-0000NqC; Sun, 30 Jan 94 03:39 PST
  164. Received: from localhost (d2hacker@localhost) by hacket.dtek.chalmers.se (8.6.4/8.6.4) id MAA28207 for amigae@bkhouse.cts.com; Sun, 30 Jan 1994 12:39:08 +0100
  165. Message-Id: <199401301139.MAA28207@hacket.dtek.chalmers.se>
  166. Date: Sun, 30 Jan 1994 12:39:07 +0100 (MET)
  167. X-Mailer: ELM [version 2.4 PL22]
  168. MIME-Version: 1.0
  169. Content-Type: text/plain; charset=us-ascii
  170. Content-Transfer-Encoding: 7bit
  171. Content-Length: 1396
  172. From: Magnus Hacker <d2hacker@dtek.chalmers.se>
  173. To: amigae@bkhouse.cts.com (AmigaE Mailing List)
  174. Subject: Re: Thanks for the help
  175.  
  176. thorntonj@beast.cs.hh.ab.com wrote:
  177.  
  178. <stuff deleted>
  179.  
  180. >I havn't had time to do more than just type in the above and get it 
  181. >working. If I wanted to open more than one console, and draw a map in it,
  182. >I could define it as, say, mapcon and then open it with:
  183. >
  184. >    IF mapcon:=Open('mapcon:xx/xx/xxx/xxx/XXXXX',NEWFILE)
  185. >    ENDIF
  186. >
  187. >or something along that line. Then to write to that console with:
  188. >
  189. >   Write(mapcon,'Whatever',STRLEN)
  190. >
  191. >Am I one the right track with this.
  192.  
  193. Almost. The IF statement should read:
  194.  
  195.     IF mapcon:=Open('con:xx/xx/xxx/xxx/XXXXX',NEWFILE)
  196.  
  197. CON: is a AmigaDOS device just like df0: or dh0: but mapcon: means nothing
  198. to AmigaDOS.
  199. The program would compile fine, but when you run it, you will get a requester
  200. telling you to "Insert disk "mapcon" in any disk drive".
  201.  
  202. Just use different variables for different windows, and then you're on
  203. the right track.
  204.  
  205. BTW, wouldn't it be easier to open a normal window for the map, and use
  206. Line() to draw in it? Opening a console window for this means that you have
  207. to use ascii characters to make up the map. Just a thought.
  208.  
  209. See you,
  210. +--------------------------------------------------+-------------------+
  211. | Magnus Hacker, Chalmers Univ. of Technology      |     This space    |
  212. | d2hacker@dtek.chalmers.se                        |      for rent     |
  213. +--------------------------------------------------+-------------------+  
  214. From crash!mhd1.moorhead.msus.edu!platt Mon, 31 Jan 94 01:05:21 PST
  215. Received: by bkhouse.cts.com (V1.17-beta/Amiga)
  216.       id <1p8d@bkhouse.cts.com>; Mon, 31 Jan 94 01:05:21 PST
  217. Received: from mhd1.moorhead.msus.edu by crash.cts.com with smtp
  218.     (Smail3.1.28.1 #18) id m0pQbg0-0000FFC; Sun, 30 Jan 94 04:54 PST
  219. Received: by mhd1.moorhead.msus.edu (5.65/DEC-Ultrix/4.3)
  220.     id AA09720; Sun, 30 Jan 1994 06:55:45 -0600
  221. Message-Id: <9401301255.AA09720@mhd1.moorhead.msus.edu>
  222. Date: Sun, 30 Jan 1994 06:55:44 -0600 (CST)
  223. X-Mailer: ELM [version 2.4 PL20]
  224. Content-Type: text
  225. Content-Length: 12012
  226. From: platt@mhd1.moorhead.msus.edu (Vincent Platt)
  227. To: amigae@bkhouse.cts.com (amigae)
  228. Subject: Programmer Project Interface Source
  229.  
  230. This is the source code for PPI, which I just posted to Aminet.  You can
  231. get the source from there too, but I wanted to make sure all the E'ers got
  232. a shot at it (not like we look at every little upload on Aminet eh?).
  233.  
  234. The docs are in the Aminet distribution too, if you have more questions.
  235.  
  236. Mail me for questions about this (platt@mhd1.moorhead.msus.edu).
  237.  
  238. Do NOT flood the list with questions.
  239.  
  240. Oh, be sure to edit out my .signature from the end of this mail message
  241. and edit out this prelude too.  Just reminding everyone!  :+)
  242.  
  243. /*
  244.  
  245. PPI - Programming Project Interface
  246.  
  247. Meant to satisfy all the 'would-have-been' users of ESEE.
  248.  
  249. Written by Vincent Platt - (c) 1994 - All Rights Reserved
  250. Modifying & distributing this source is prohibited.
  251. Source may be modified for own personal use.
  252.  
  253. This program and its source are freeware and no charge may be
  254. made for this program, its source, or its documentation.
  255.  
  256. SrcGen used to create original code skeleton.
  257.  
  258. A modified version of Eformat was used to make things uniform.
  259. (My version makes indents a single space, rather than a tab char.)
  260.  
  261.  
  262. */
  263.  
  264. OPT OSVERSION=37
  265.  
  266. MODULE 'gadtools','libraries/gadtools','intuition/intuition',
  267. 'intuition/screens', 'intuition/gadgetclass', 'graphics/text',
  268. 'Asl', 'libraries/Asl', 'dos/dos'
  269.  
  270. ENUM NONE, NOCONTEXT, NOGADGET, NOWB, NOVISUAL, OPENGT, NOWINDOW, NOMENUS
  271. ENUM EDIT_BUTTON, COMPILE_BUTTON, ACTION1_BUTTON, ACTION2_BUTTON,
  272. PICK_BUTTON, SAVESETTINGS_BUTTON, EDITOR_STRING, COMPILER_STRING,
  273. ACTION1_STRING, ACTION2_STRING, KILL_CBOX
  274. ENUM EDIT, COMPILE, ACTION1, ACTION2
  275.  
  276. DEF ppiwnd:PTR TO window, ppiglist, scr:PTR TO screen, visual=NIL,
  277. offx,offy,tattr
  278.  
  279. /* strings for launch's and files */
  280.  
  281. DEF pickfile[256]:STRING, compile[256]:STRING, edit[256]:STRING,
  282. action1[256]:STRING, action2[256]:STRING
  283.  
  284. /* for the checkbox */
  285. DEF checked=TRUE
  286.  
  287. PROC setupscreen()
  288.  IF (gadtoolsbase:=OpenLibrary('gadtools.library',37))=NIL THEN RETURN OPENGT
  289.  IF (scr:=LockPubScreen('Workbench'))=NIL THEN RETURN NOWB
  290.  IF (visual:=GetVisualInfoA(scr,NIL))=NIL THEN RETURN NOVISUAL
  291.  offy:=scr.wbortop+Int(scr.rastport+58)-10
  292.  tattr:=['topaz.font',8,0,0]:textattr
  293. ENDPROC
  294.  
  295. PROC closedownscreen()
  296.  IF visual THEN FreeVisualInfo(visual)
  297.  IF scr THEN UnlockPubScreen(NIL,scr)
  298.  IF gadtoolsbase THEN CloseLibrary(gadtoolsbase)
  299. ENDPROC
  300.  
  301. PROC openppiwindow()
  302.  DEF g:PTR TO gadget
  303.  IF (g:=CreateContext({ppiglist}))=NIL THEN RETURN NOCONTEXT
  304.  
  305.  IF (g:=CreateGadgetA(BUTTON_KIND,g,
  306.   [offx+410,offy+22,120,19,'_Edit',tattr,EDIT_BUTTON,16,visual,0]:newgadget,
  307.   [GT_UNDERSCORE,"_",
  308.   NIL]))=NIL THEN RETURN NOGADGET
  309.   IF (g:=CreateGadgetA(BUTTON_KIND,g,
  310.    [offx+410,offy+40,120,19,'_Compile',tattr,COMPILE_BUTTON,16,visual,0]:newgadget,
  311.    [GT_UNDERSCORE,"_",
  312.    NIL]))=NIL THEN RETURN NOGADGET
  313.    IF (g:=CreateGadgetA(BUTTON_KIND,g,
  314.     [offx+410,offy+58,120,19,'Action _1',tattr,ACTION1_BUTTON,16,visual,0]:newgadget,
  315.     [GT_UNDERSCORE,"_",
  316.     NIL]))=NIL THEN RETURN NOGADGET
  317.     IF (g:=CreateGadgetA(BUTTON_KIND,g,
  318.      [offx+410,offy+76,120,19,'Action _2',tattr,ACTION2_BUTTON,16,visual,0]:newgadget,
  319.      [GT_UNDERSCORE,"_",
  320.      NIL]))=NIL THEN RETURN NOGADGET
  321.      IF (g:=CreateGadgetA(BUTTON_KIND,g,
  322.       [offx+410,offy+94,120,19,'_Pick',tattr,PICK_BUTTON,16,visual,0]:newgadget,
  323.       [GT_UNDERSCORE,"_",
  324.       NIL]))=NIL THEN RETURN NOGADGET
  325.       IF (g:=CreateGadgetA(BUTTON_KIND,g,
  326.        [offx+410,offy+112,120,19,'_Save Settings',tattr,SAVESETTINGS_BUTTON,16,visual,0]:newgadget,
  327.        [GT_UNDERSCORE,"_",
  328.        NIL]))=NIL THEN RETURN NOGADGET
  329.  
  330.        IF (g:=CreateGadgetA(STRING_KIND,g,
  331.         [offx+96,offy+23,224,12,'Editor:',tattr,EDITOR_STRING,1,visual,0]:newgadget,
  332.         [GTST_MAXCHARS,256,GTST_STRING,edit,
  333.         NIL]))=NIL THEN RETURN NOGADGET
  334.         IF (g:=CreateGadgetA(STRING_KIND,g,
  335.          [offx+97,offy+42,224,12,'Compiler:',tattr,COMPILER_STRING,1,visual,0]:newgadget,
  336.          [GTST_MAXCHARS,256,GTST_STRING,compile,
  337.          NIL]))=NIL THEN RETURN NOGADGET
  338.          IF (g:=CreateGadgetA(STRING_KIND,g,
  339.           [offx+97,offy+61,224,12,'Action 1:',tattr,ACTION1_STRING,1,visual,0]:newgadget,
  340.           [GTST_MAXCHARS,256,GTST_STRING,action1,
  341.           NIL]))=NIL THEN RETURN NOGADGET
  342.           IF (g:=CreateGadgetA(STRING_KIND,g,
  343.            [offx+96,offy+80,224,12,'Action 2:',tattr,ACTION2_STRING,1,visual,0]:newgadget,
  344.            [GTST_MAXCHARS,256,GTST_STRING,action2,
  345.            NIL]))=NIL THEN RETURN NOGADGET
  346.  
  347.            IF (g:=CreateGadgetA(CHECKBOX_KIND,g,
  348.             [offx+170,offy+115,26,11,'Kill Extension For Compiling',tattr,KILL_CBOX,4,visual,0]:newgadget,
  349.             [GTCB_CHECKED,checked,
  350.             NIL]))=NIL THEN RETURN NOGADGET
  351.  
  352.             IF (ppiwnd:=OpenWindowTagList(NIL,
  353.              [WA_LEFT,0,
  354.              WA_TOP,17,
  355.              WA_WIDTH,offx+579,
  356.              WA_HEIGHT,offy+149,
  357.              WA_IDCMP,IDCMP_GADGETUP+IDCMP_CLOSEWINDOW+IDCMP_VANILLAKEY,
  358.              WA_FLAGS,WFLG_DEPTHGADGET+WFLG_SMART_REFRESH+WFLG_DRAGBAR+WFLG_CLOSEGADGET+WFLG_RMBTRAP,
  359.              WA_TITLE,'Programming Project Interface (PPI) -- (c) 1994 Vincent Platt',
  360.              WA_CUSTOMSCREEN,scr,
  361.              WA_MINWIDTH,67,
  362.              WA_MINHEIGHT,21,
  363.              WA_MAXWIDTH,$23A,
  364.              WA_MAXHEIGHT,145,
  365.              WA_AUTOADJUST,1,
  366.              WA_AUTOADJUST,1,
  367.              WA_GADGETS,ppiglist,
  368.              NIL]))=NIL THEN RETURN NOWINDOW
  369.              Gt_RefreshWindow(ppiwnd,NIL)
  370.  
  371. ENDPROC
  372.  
  373. PROC closeppiwindow()
  374.  IF ppiwnd THEN CloseWindow(ppiwnd)
  375.  IF ppiglist THEN FreeGadgets(ppiglist)
  376. ENDPROC
  377.  
  378. PROC reporterr(er)
  379.  DEF erlist:PTR TO LONG
  380.  IF er
  381.   erlist:=['get context','create gadget','lock wb','get visual infos',
  382.   'open "gadtools.library" v37+','open window','create menus']
  383.   EasyRequestArgs(0,[20,0,0,'Could not \s!','ok'],0,[erlist[er-1]])
  384.  ENDIF
  385. ENDPROC er
  386.  
  387. PROC request_file()
  388.  
  389.  DEF req:PTR TO filerequestr
  390.  DEF a[2]:STRING
  391.  
  392.  IF aslbase:=OpenLibrary('asl.library',37)
  393.   IF req:=AllocFileRequest()
  394.    RequestFile(req)
  395.  
  396.    /* first see if the user bothered to pick a file, if not then get out */
  397.    IF StrCmp(req.file,'',ALL) THEN JUMP getout
  398.  
  399.    /* copy path name to our full file name string */
  400.    StrCopy(pickfile,req.dir,ALL)
  401.  
  402.    /* tack a '/' on to the end of pickfile if req.dir is not empty and
  403.    the last char of req.dir is not ':' */
  404.    IF (StrCmp(req.dir,'',ALL)=FALSE)
  405.     MidStr(a,req.dir,StrLen(req.dir)-1,ALL)
  406.     IF (StrCmp(a,':',ALL)=FALSE)
  407.      StrAdd(pickfile,'/',ALL)
  408.     ENDIF
  409.    ENDIF
  410.  
  411.    /* then tack the filename on to the end of pickfile */
  412.    StrAdd(pickfile,req.file,ALL)
  413.  
  414.    getout:
  415.    FreeFileRequest(req)
  416.   ELSE
  417.    WriteF('Could not open filerequester!\n')
  418.   ENDIF
  419.   CloseLibrary(aslbase)
  420.  ELSE
  421.   WriteF('Could not open asl.library!\n')
  422.  ENDIF
  423. ENDPROC
  424.  
  425.  
  426. PROC launch(whichone)
  427.  DEF orgstr[256]:STRING
  428.  DEF str[256]:STRING
  429.  DEF x, test[1]:STRING
  430.  DEF oldpickfile[256]:STRING
  431.  StrCopy(str,'',ALL)
  432.  
  433.  /* this is done so the compile section can mess with the pickfile
  434.  pickfile is restored when everything is done */
  435.  StrCopy(oldpickfile,pickfile,ALL)
  436.  
  437.  SELECT whichone
  438.  
  439.   CASE EDIT
  440.    StrCopy(orgstr,edit,ALL)
  441.  
  442.   CASE COMPILE
  443.    IF checked
  444.     FOR x:= StrLen(pickfile)-1 TO 0 STEP -1
  445.      MidStr(test,pickfile,x,1)
  446.      IF StrCmp(test,'.',ALL)
  447.       StrCopy(pickfile,pickfile,x)
  448.      ENDIF
  449.     ENDFOR
  450.    ENDIF
  451.    StrCopy(orgstr,compile,ALL)
  452.  
  453.   CASE ACTION1
  454.    StrCopy(orgstr,action1,ALL)
  455.  
  456.   CASE ACTION2
  457.    StrCopy(orgstr,action2,ALL)
  458.  
  459.  ENDSELECT
  460.  
  461.  FOR x:= 0 TO StrLen(orgstr)-1
  462.   MidStr(test,orgstr,x,1)
  463.   IF StrCmp(test,'%',ALL)
  464.    MidStr(test,orgstr,x+1,1)
  465.    IF StrCmp(test,'s',ALL)
  466.     StrAdd(str,pickfile,ALL)
  467.     INC x /* inc to skip the s as well as the % */
  468.     JUMP z /* don't add % and s chars now that they have been handled */
  469.    ELSE
  470.     StrAdd(str,'%',ALL)
  471.    ENDIF
  472.   ENDIF
  473.   StrAdd(str,test,ALL)
  474.   z:
  475.  ENDFOR
  476.  
  477.  Execute(str,0,0)
  478.  StrCopy(pickfile,oldpickfile,ALL)
  479.  
  480. ENDPROC
  481.  
  482.  
  483. PROC pick()
  484.  request_file()
  485.  TextF(18,140,'Workfile =                                                         ')
  486.  TextF(18,140,'Workfile = \s',pickfile)
  487. ENDPROC
  488.  
  489. PROC savesettings()
  490.  DEF file
  491.  
  492.  IF file:= Open('s:PPI.prefs', NEWFILE)
  493.   Fputs(file,'PPI Prefs\n')
  494.  
  495.   Fputs(file,pickfile)
  496.   Fputs(file,'\n')
  497.  
  498.   Fputs(file,edit)
  499.   Fputs(file,'\n')
  500.  
  501.   Fputs(file,compile)
  502.   Fputs(file,'\n')
  503.  
  504.   Fputs(file,action1)
  505.   Fputs(file,'\n')
  506.  
  507.   Fputs(file,action2)
  508.   Fputs(file,'\n')
  509.  
  510.   IF checked
  511.    Fputs(file,'T\n')
  512.   ELSE
  513.    Fputs(file,'F\n')
  514.   ENDIF
  515.  
  516.   Close(file)
  517.  ENDIF
  518. ENDPROC
  519.  
  520. PROC loadsettings()
  521.  DEF file
  522.  DEF buf[260]:STRING
  523.  
  524.  IF file:= Open('s:PPI.prefs', OLDFILE)
  525.   Fgets(file,buf,260)
  526.  
  527.   StrCopy(buf,'',ALL)
  528.   Fgets(file,buf,260)
  529.   StrCopy(pickfile,buf,StrLen(buf)-1)
  530.  
  531.   StrCopy(buf,'',ALL)
  532.   Fgets(file,buf,260)
  533.   StrCopy(edit,buf,StrLen(buf)-1)
  534.  
  535.   StrCopy(buf,'',ALL)
  536.   Fgets(file,buf,260)
  537.   StrCopy(compile,buf,StrLen(buf)-1)
  538.  
  539.   StrCopy(buf,'',ALL)
  540.   Fgets(file,buf,260)
  541.   StrCopy(action1,buf,StrLen(buf)-1)
  542.  
  543.   StrCopy(buf,'',ALL)
  544.   Fgets(file,buf,260)
  545.   StrCopy(action2,buf,StrLen(buf)-1)
  546.  
  547.   StrCopy(buf,'',ALL)
  548.   Fgets(file,buf,260)
  549.   StrCopy(buf,buf,StrLen(buf)-1)
  550.  
  551.   IF StrCmp(buf,'F',ALL)
  552.    checked:=FALSE
  553.   ELSE
  554.    checked:=TRUE
  555.   ENDIF
  556.   Close(file)
  557.  
  558.  ELSE
  559.   Close(file)
  560.  ENDIF
  561. ENDPROC
  562.  
  563. PROC main()
  564.  
  565.  DEF class, code, iaddress, dummy: PTR TO stringinfo, dummy2
  566.  DEF mes: PTR TO intuimessage
  567.  DEF clicked: PTR TO gadget, gadgetid
  568.  
  569.  loadsettings()
  570.  
  571.  IF reporterr(setupscreen())=0
  572.   reporterr(openppiwindow())
  573.  
  574.   stdrast:=ppiwnd.rport
  575.   Colour(1,0)
  576.   TextF(18,140,'Workfile = \s',pickfile)
  577.  
  578.   LOOP
  579.    class:=FALSE
  580.    REPEAT
  581.     IF mes:=Gt_GetIMsg(ppiwnd.userport)
  582.      class:=mes.class
  583.      code:=mes.code
  584.      iaddress:=mes.iaddress
  585.      Gt_ReplyIMsg(mes)
  586.      IF class=IDCMP_REFRESHWINDOW
  587.       Gt_BeginRefresh(ppiwnd)
  588.       Gt_EndRefresh(ppiwnd,TRUE)
  589.       TextF(18,140,'Workfile =                                                         ')
  590.       TextF(18,140,'Workfile = \s',pickfile)
  591.       class:=FALSE
  592.      ELSEIF ((class<>IDCMP_CLOSEWINDOW) AND (class<>IDCMP_GADGETUP) AND (class<>IDCMP_VANILLAKEY))
  593.       class:=FALSE
  594.      ENDIF
  595.     ELSE
  596.      WaitPort(ppiwnd.userport)
  597.     ENDIF
  598.    UNTIL class
  599.  
  600.    SELECT class
  601.  
  602.     CASE IDCMP_CLOSEWINDOW
  603.      BRA x
  604.  
  605.     CASE IDCMP_VANILLAKEY
  606.      /* here we must check to see if one of our hotkeys were pressed and
  607.      then react appropriately for each case */
  608.  
  609.      SELECT code
  610.  
  611.       /* "e" or "E" = Edit Button */
  612.       CASE "e"
  613.        launch(EDIT)
  614.       CASE "E"
  615.        launch(EDIT)
  616.  
  617.        /* "c" or "C" = Compile Button */
  618.       CASE "c"
  619.        launch(COMPILE)
  620.       CASE "C"
  621.        launch(COMPILE)
  622.  
  623.        /* "1" = Action1 Button */
  624.       CASE "1"
  625.        launch(ACTION1)
  626.  
  627.        /* "2" = Action2 Button */
  628.       CASE "2"
  629.        launch(ACTION2)
  630.  
  631.        /* "p" or "P" = Pick Button */
  632.       CASE "p"
  633.        pick()
  634.       CASE "P"
  635.        pick()
  636.  
  637.        /* "s" or "S" = SaveSettings Button */
  638.       CASE "s"
  639.        savesettings()
  640.       CASE "S"
  641.        savesettings()
  642.  
  643.      ENDSELECT
  644.  
  645.  
  646.     CASE IDCMP_GADGETUP
  647.      clicked:=iaddress
  648.      gadgetid:=clicked.gadgetid
  649.  
  650.      SELECT gadgetid
  651.       CASE EDIT_BUTTON
  652.        launch(EDIT)
  653.  
  654.       CASE COMPILE_BUTTON
  655.        launch(COMPILE)
  656.  
  657.       CASE ACTION1_BUTTON
  658.        launch(ACTION1)
  659.  
  660.       CASE ACTION2_BUTTON
  661.        launch(ACTION2)
  662.  
  663.       CASE PICK_BUTTON
  664.        pick()
  665.  
  666.       CASE SAVESETTINGS_BUTTON
  667.        savesettings()
  668.  
  669.       CASE EDITOR_STRING
  670.        dummy := clicked.specialinfo
  671.        dummy2 := dummy.buffer
  672.        StrCopy(edit, dummy2, ALL)
  673.  
  674.       CASE COMPILER_STRING
  675.        dummy := clicked.specialinfo
  676.        dummy2 := dummy.buffer
  677.        StrCopy(compile, dummy2, ALL)
  678.  
  679.       CASE ACTION1_STRING
  680.        dummy := clicked.specialinfo
  681.        dummy2 := dummy.buffer
  682.        StrCopy(action1, dummy2, ALL)
  683.  
  684.       CASE ACTION2_STRING
  685.        dummy := clicked.specialinfo
  686.        dummy2 := dummy.buffer
  687.        StrCopy(action2, dummy2, ALL)
  688.  
  689.       CASE KILL_CBOX
  690.        IF checked
  691.         checked:=FALSE
  692.        ELSE
  693.         checked:=TRUE
  694.        ENDIF
  695.  
  696.      ENDSELECT
  697.    ENDSELECT
  698.  
  699.   ENDLOOP
  700.  
  701.  ENDIF
  702.  x: closedownscreen()
  703.  closeppiwindow()
  704.  CleanUp(0)
  705. ENDPROC